(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     92638,       2134]
NotebookOptionsPosition[     91532,       2096]
NotebookOutlinePosition[     91919,       2113]
CellTagsIndexPosition[     91876,       2110]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"pa", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"\"\<C\>\"", "<>", 
           RowBox[{"ToString", "[", "i", "]"}]}], ",", 
          RowBox[{"\"\<E\>\"", "<>", 
           RowBox[{"ToString", "[", "i", "]"}]}], ",", 
          RowBox[{"\"\<G\>\"", "<>", 
           RowBox[{"ToString", "[", "i", "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "3", ",", "8"}], "}"}]}], "]"}], "]"}], ",", "\n", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"\"\<A\>\"", "<>", 
           RowBox[{"ToString", "[", 
            RowBox[{"i", "-", "1"}], "]"}]}], ",", 
          RowBox[{"\"\<C\>\"", "<>", 
           RowBox[{"ToString", "[", "i", "]"}]}], ",", 
          RowBox[{"\"\<E\>\"", "<>", 
           RowBox[{"ToString", "[", "i", "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "3", ",", "8"}], "}"}]}], "]"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"\"\<F\>\"", "<>", 
           RowBox[{"ToString", "[", 
            RowBox[{"i", "-", "1"}], "]"}]}], ",", 
          RowBox[{"\"\<A\>\"", "<>", 
           RowBox[{"ToString", "[", 
            RowBox[{"i", "-", "1"}], "]"}]}], ",", 
          RowBox[{"\"\<C\>\"", "<>", 
           RowBox[{"ToString", "[", "i", "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "3", ",", "8"}], "}"}]}], "]"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"\"\<G\>\"", "<>", 
           RowBox[{"ToString", "[", 
            RowBox[{"i", "-", "1"}], "]"}]}], ",", 
          RowBox[{"\"\<B\>\"", "<>", 
           RowBox[{"ToString", "[", 
            RowBox[{"i", "-", "1"}], "]"}]}], ",", 
          RowBox[{"\"\<D\>\"", "<>", 
           RowBox[{"ToString", "[", "i", "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "3", ",", "8"}], "}"}]}], "]"}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pa", "=", 
   RowBox[{"pa", "\[LeftDoubleBracket]", 
    RowBox[{"All", ",", 
     RowBox[{"1", ";;", "16"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pa", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"pa", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
        ",", 
        RowBox[{"Reverse", "[", 
         RowBox[{"pa", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}],
          "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.722268649143734*^9, 3.722268705198512*^9}, {
   3.7222687384810505`*^9, 3.7222687876317787`*^9}, {3.7222688779346304`*^9, 
   3.7222688821062775`*^9}, {3.722268949016736*^9, 3.722269023924412*^9}, {
   3.7222692098084574`*^9, 3.722269212169403*^9}, 3.72227299833461*^9, {
   3.7222732622691345`*^9, 3.722273294158981*^9}, {3.7222733446172867`*^9, 
   3.7222734263489804`*^9}, {3.7222734632862387`*^9, 3.722273619474075*^9}, {
   3.7222738871076684`*^9, 3.7222739860413084`*^9}, {3.72227408289402*^9, 
   3.722274155344491*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sound", "[", 
  RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"SoundNote", "[", 
      RowBox[{
       RowBox[{"pa", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"i", "-", "1"}], ")"}], "/", "16"}], ",", 
         RowBox[{"i", "/", "16"}]}], "}"}], ",", "\"\<Piano\>\"", ",", 
       RowBox[{"SoundVolume", "\[Rule]", "0.85"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "pa", "]"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7222690505054584`*^9, 3.7222691720802193`*^9}, {
  3.7222730620409803`*^9, 3.722273065656449*^9}, {3.7222736411658936`*^9, 
  3.722273643320376*^9}}],

Cell[BoxData[
 InterpretationBox[
  GraphicsBox[{
    {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
     RectangleBox[{0, 0}, {360, -164}]}, {InsetBox[
      GraphicsBox[
       {RGBColor[0.5, 0, 0.5], 
        StyleBox[{
          RectangleBox[{4., 0.2057964898375102}, \
{4.059375, 0.2177012517422722}], 
          RectangleBox[{5.9375, 0.2057964898375102}, \
{5.996875, 0.2177012517422722}], 
          RectangleBox[{6., 0.22960601364703406}, \
{6.059375, 0.24151077555179604}], 
          RectangleBox[{7.9375, 0.22960601364703406}, \
{7.996875, 0.24151077555179604}], 
          RectangleBox[{2., 0.25341553745655804}, \
{2.059375, 0.2653202993613199}], 
          RectangleBox[{3.9375, 0.25341553745655804}, \
{3.996875, 0.2653202993613199}], 
          RectangleBox[{4.0625, 0.25341553745655804}, \
{4.121875, 0.2653202993613199}], 
          RectangleBox[{5.875, 0.25341553745655804}, \
{5.934375, 0.2653202993613199}], 
          RectangleBox[{6.0625, 0.27722506126608165}, \
{6.121875, 0.2891298231708436}], 
          RectangleBox[{7.875, 0.27722506126608165}, \
{7.934375, 0.2891298231708436}], 
          RectangleBox[{0., 0.2891298231708436}, \
{0.059375, 0.3010345850756056}], 
          RectangleBox[{1.9375, 0.2891298231708436}, \
{1.996875, 0.3010345850756056}], 
          RectangleBox[{2.0625, 0.2891298231708436}, \
{2.121875, 0.3010345850756056}], 
          RectangleBox[{3.875, 0.2891298231708436}, \
{3.934375, 0.3010345850756056}], 
          RectangleBox[{4.125, 0.2891298231708436}, \
{4.184375, 0.3010345850756056}], 
          RectangleBox[{5.8125, 0.2891298231708436}, \
{5.871875, 0.3010345850756056}], 
          RectangleBox[{6.125, 0.31293934698036746}, \
{6.184375, 0.3248441088851295}], 
          RectangleBox[{7.8125, 0.31293934698036746}, \
{7.871875, 0.3248441088851295}], 
          RectangleBox[{0.0625, 0.33674887078989135}, \
{0.121875, 0.34865363269465305}], 
          RectangleBox[{1.875, 0.33674887078989135}, \
{1.934375, 0.34865363269465305}], 
          RectangleBox[{2.125, 0.33674887078989135}, \
{2.184375, 0.34865363269465305}], 
          RectangleBox[{3.8125, 0.33674887078989135}, \
{3.871875, 0.34865363269465305}], 
          RectangleBox[{4.1875, 0.34865363269465305}, \
{4.246875, 0.3605583945994151}], 
          RectangleBox[{5.75, 0.34865363269465305}, \
{5.809375, 0.3605583945994151}], 
          RectangleBox[{0.125, 0.37246315650417705}, \
{0.184375, 0.3843679184089389}], 
          RectangleBox[{1.8125, 0.37246315650417705}, \
{1.871875, 0.3843679184089389}], 
          RectangleBox[{6.1875, 0.37246315650417705}, \
{6.246875, 0.3843679184089389}], 
          RectangleBox[{7.75, 0.37246315650417705}, \
{7.809375, 0.3843679184089389}], 
          RectangleBox[{2.1875, 0.3962726803137009}, \
{2.246875, 0.40817744221846264}], 
          RectangleBox[{3.75, 0.3962726803137009}, \
{3.809375, 0.40817744221846264}], 
          RectangleBox[{4.25, 0.3962726803137009}, \
{4.309375, 0.40817744221846264}], 
          RectangleBox[{5.6875, 0.3962726803137009}, \
{5.746875, 0.40817744221846264}], 
          RectangleBox[{6.25, 0.4200822041232246}, \
{6.309375, 0.43198696602798653}], 
          RectangleBox[{7.6875, 0.4200822041232246}, \
{7.746875, 0.43198696602798653}], 
          RectangleBox[{0.1875, 0.43198696602798653}, \
{0.246875, 0.4438917279327484}], 
          RectangleBox[{1.75, 0.43198696602798653}, \
{1.809375, 0.4438917279327484}], 
          RectangleBox[{2.25, 0.43198696602798653}, \
{2.309375, 0.4438917279327484}], 
          RectangleBox[{3.6875, 0.43198696602798653}, \
{3.746875, 0.4438917279327484}], 
          RectangleBox[{4.3125, 0.43198696602798653}, \
{4.371875, 0.4438917279327484}], 
          RectangleBox[{5.625, 0.43198696602798653}, \
{5.684375, 0.4438917279327484}], 
          RectangleBox[{6.3125, 0.45579648983751037}, \
{6.371875, 0.4677012517422721}], 
          RectangleBox[{7.625, 0.45579648983751037}, \
{7.684375, 0.4677012517422721}], 
          RectangleBox[{0.25, 0.4796060136470343}, \
{0.309375, 0.49151077555179606}], 
          RectangleBox[{1.6875, 0.4796060136470343}, \
{1.746875, 0.49151077555179606}], 
          RectangleBox[{2.3125, 0.4796060136470343}, \
{2.371875, 0.49151077555179606}], 
          RectangleBox[{3.625, 0.4796060136470343}, \
{3.684375, 0.49151077555179606}], 
          
          RectangleBox[{4.375, 0.49151077555179606}, \
{4.434375, 0.5034155374565581}], 
          RectangleBox[{5.5625, 0.49151077555179606}, \
{5.621875, 0.5034155374565581}], 
          RectangleBox[{0.3125, 0.5153202993613198}, \
{0.371875, 0.5272250612660818}], 
          RectangleBox[{1.625, 0.5153202993613198}, \
{1.684375, 0.5272250612660818}], 
          RectangleBox[{6.375, 0.5153202993613198}, \
{6.434375, 0.5272250612660818}], 
          RectangleBox[{7.5625, 0.5153202993613198}, \
{7.621875, 0.5272250612660818}], 
          RectangleBox[{2.375, 0.5391298231708438}, \
{2.434375, 0.5510345850756055}], 
          RectangleBox[{3.5625, 0.5391298231708438}, \
{3.621875, 0.5510345850756055}], 
          RectangleBox[{4.4375, 0.5391298231708438}, \
{4.496875, 0.5510345850756055}], 
          RectangleBox[{5.5, 0.5391298231708438}, \
{5.559375, 0.5510345850756055}], 
          RectangleBox[{6.4375, 0.5629393469803675}, \
{6.496875, 0.5748441088851295}], 
          RectangleBox[{7.5, 0.5629393469803675}, \
{7.559375, 0.5748441088851295}], 
          RectangleBox[{0.375, 0.5748441088851295}, \
{0.434375, 0.5867488707898912}], 
          RectangleBox[{1.5625, 0.5748441088851295}, \
{1.621875, 0.5867488707898912}], 
          RectangleBox[{2.4375, 0.5748441088851295}, \
{2.496875, 0.5867488707898912}], 
          RectangleBox[{3.5, 0.5748441088851295}, \
{3.559375, 0.5867488707898912}], 
          RectangleBox[{4.5, 0.5748441088851295}, \
{4.559375, 0.5867488707898912}], 
          RectangleBox[{5.4375, 0.5748441088851295}, \
{5.496875, 0.5867488707898912}], 
          RectangleBox[{6.5, 0.5986536326946532}, \
{6.559375, 0.610558394599415}], 
          RectangleBox[{7.4375, 0.5986536326946532}, \
{7.496875, 0.610558394599415}], 
          RectangleBox[{0.4375, 0.6224631565041769}, \
{0.496875, 0.6343679184089389}], 
          RectangleBox[{1.5, 0.6224631565041769}, \
{1.559375, 0.6343679184089389}], 
          RectangleBox[{2.5, 0.6224631565041769}, \
{2.559375, 0.6343679184089389}], 
          RectangleBox[{3.4375, 0.6224631565041769}, \
{3.496875, 0.6343679184089389}], 
          RectangleBox[{4.5625, 0.6343679184089389}, \
{4.621875, 0.646272680313701}], 
          RectangleBox[{5.375, 0.6343679184089389}, \
{5.434375, 0.646272680313701}], 
          RectangleBox[{0.5, 0.658177442218463}, \
{0.559375, 0.6700822041232247}], 
          RectangleBox[{1.4375, 0.658177442218463}, \
{1.496875, 0.6700822041232247}], 
          RectangleBox[{6.5625, 0.658177442218463}, \
{6.621875, 0.6700822041232247}], 
          RectangleBox[{7.375, 0.658177442218463}, \
{7.434375, 0.6700822041232247}], 
          RectangleBox[{2.5625, 0.6819869660279864}, \
{2.621875, 0.6938917279327484}], 
          RectangleBox[{3.375, 0.6819869660279864}, \
{3.434375, 0.6938917279327484}], 
          RectangleBox[{4.625, 0.6819869660279864}, \
{4.684375, 0.6938917279327484}], 
          RectangleBox[{5.3125, 0.6819869660279864}, \
{5.371875, 0.6938917279327484}], 
          RectangleBox[{6.625, 0.7057964898375104}, \
{6.684375, 0.7177012517422724}], 
          RectangleBox[{7.3125, 0.7057964898375104}, \
{7.371875, 0.7177012517422724}], 
          RectangleBox[{0.5625, 0.7177012517422724}, \
{0.621875, 0.7296060136470344}], 
          RectangleBox[{1.375, 0.7177012517422724}, \
{1.434375, 0.7296060136470344}], 
          RectangleBox[{2.625, 0.7177012517422724}, \
{2.684375, 0.7296060136470344}], 
          RectangleBox[{3.3125, 0.7177012517422724}, \
{3.371875, 0.7296060136470344}], 
          RectangleBox[{4.6875, 0.7177012517422724}, \
{4.746875, 0.7296060136470344}], 
          RectangleBox[{5.25, 0.7177012517422724}, \
{5.309375, 0.7296060136470344}], 
          RectangleBox[{6.6875, 0.7415107755517961}, \
{6.746875, 0.7534155374565579}], 
          RectangleBox[{7.25, 0.7415107755517961}, \
{7.309375, 0.7534155374565579}], 
          RectangleBox[{0.625, 0.7653202993613198}, \
{0.684375, 0.7772250612660818}], 
          RectangleBox[{1.3125, 0.7653202993613198}, \
{1.371875, 0.7772250612660818}], 
          RectangleBox[{2.6875, 0.7653202993613198}, \
{2.746875, 0.7772250612660818}], 
          RectangleBox[{3.25, 0.7653202993613198}, \
{3.309375, 0.7772250612660818}], 
          RectangleBox[{4.75, 0.7772250612660818}, \
{4.809375, 0.7891298231708438}], 
          RectangleBox[{5.1875, 0.7772250612660818}, \
{5.246875, 0.7891298231708438}], 
          RectangleBox[{0.6875, 0.8010345850756058}, \
{0.746875, 0.8129393469803675}], 
          RectangleBox[{1.25, 0.8010345850756058}, \
{1.309375, 0.8129393469803675}], 
          RectangleBox[{6.75, 0.8010345850756058}, \
{6.809375, 0.8129393469803675}], 
          RectangleBox[{7.1875, 0.8010345850756058}, \
{7.246875, 0.8129393469803675}], 
          RectangleBox[{2.75, 0.8248441088851293}, \
{2.809375, 0.8367488707898912}], 
          RectangleBox[{3.1875, 0.8248441088851293}, \
{3.246875, 0.8367488707898912}], 
          RectangleBox[{4.8125, 0.8248441088851293}, \
{4.871875, 0.8367488707898912}], 
          RectangleBox[{5.125, 0.8248441088851293}, \
{5.184375, 0.8367488707898912}], 
          RectangleBox[{6.8125, 0.8486536326946532}, \
{6.871875, 0.860558394599415}], 
          RectangleBox[{7.125, 0.8486536326946532}, \
{7.184375, 0.860558394599415}], 
          RectangleBox[{0.75, 0.860558394599415}, \
{0.809375, 0.872463156504177}], 
          RectangleBox[{1.1875, 0.860558394599415}, \
{1.246875, 0.872463156504177}], 
          RectangleBox[{2.8125, 0.860558394599415}, \
{2.871875, 0.872463156504177}], 
          RectangleBox[{3.125, 0.860558394599415}, \
{3.184375, 0.872463156504177}], 
          RectangleBox[{4.875, 0.860558394599415}, \
{4.934375, 0.872463156504177}], 
          RectangleBox[{5.0625, 0.860558394599415}, \
{5.121875, 0.872463156504177}], 
          RectangleBox[{6.875, 0.884367918408939}, \
{6.934375, 0.896272680313701}], 
          RectangleBox[{7.0625, 0.884367918408939}, \
{7.121875, 0.896272680313701}], 
          RectangleBox[{0.8125, 0.9081774422184627}, \
{0.871875, 0.9200822041232247}], 
          RectangleBox[{1.125, 0.9081774422184627}, \
{1.184375, 0.9200822041232247}], 
          RectangleBox[{2.875, 0.9081774422184627}, \
{2.934375, 0.9200822041232247}], 
          RectangleBox[{3.0625, 0.9081774422184627}, \
{3.121875, 0.9200822041232247}], 
          RectangleBox[{4.9375, 0.9200822041232247}, \
{4.996875, 0.9319869660279865}], 
          RectangleBox[{5., 0.9200822041232247}, \
{5.059375, 0.9319869660279865}], 
          RectangleBox[{0.875, 0.9438917279327484}, \
{0.934375, 0.9557964898375104}], 
          RectangleBox[{1.0625, 0.9438917279327484}, \
{1.121875, 0.9557964898375104}], 
          RectangleBox[{6.9375, 0.9438917279327484}, \
{6.996875, 0.9557964898375104}], 
          RectangleBox[{7., 0.9438917279327484}, \
{7.059375, 0.9557964898375104}], 
          RectangleBox[{2.9375, 0.9677012517422724}, \
{2.996875, 0.9796060136470341}], 
          RectangleBox[{3., 0.9677012517422724}, \
{3.059375, 0.9796060136470341}], 
          RectangleBox[{0.9375, 1.003415537456558}, \
{0.996875, 1.0153202993613202}], 
          RectangleBox[{1., 1.003415537456558}, \
{1.059375, 1.0153202993613202}]},
         Antialiasing->True]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None,
       PlotRange->{All, All},
       PlotRangePadding->{Automatic, 0.05}], {180, -35}, 
      ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]], InsetBox[
      GraphicsBox[
       {GrayLevel[0.6], RectangleBox[{0, 0}]},
       AspectRatio->NCache[
         Rational[6, 35], 0.17142857142857143`],
       Background->GrayLevel[1],
       Frame->True,
       FrameStyle->GrayLevel[0.75],
       FrameTicks->False,
       ImagePadding->None], {180, -100}, ImageScaled[{0.5, 0.5}], {350, 60},
      Background->RGBColor[
       0.9568627450980393, 0.9568627450980393, 0.9568627450980393]]}, InsetBox[
     StyleBox[
      TemplateBox[{
       StyleBox[
        "\" | \"", FontSize -> 14, FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False],StyleBox[
         TemplateBox[{"\"8\"", "\" s\""}, "RowDefault"], FontColor -> 
         RGBColor[0.5098039215686274, 0.5098039215686274, 0.5098039215686274],
          StripOnInput -> False]},
       "RowWithSeparator"], "DialogStyle",
      StripOnInput->False], {355, -159}, Scaled[{1, 0}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{5, -158}, {29, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       PolygonBox[
        NCache[{{11, -157}, {11, -136}, {20., Rational[-293, 2]}, {
          11, -157}}, {{11, -157}, {11, -136}, {20., -146.5}, {11, -157}}]], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitMIDI[
           Sound`MIDISequence[{
             Sound`MIDITrack[{
               Sound`MIDIEvent[0, "SetTempo", "Tempo" -> 1000000], 
               Sound`MIDIEvent[
               0, "ProgramCommand", "Channel" -> 0, "Value" -> 0], 
               Sound`MIDIEvent[
               0, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               3, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               3, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               6, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               6, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               9, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               9, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               12, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               12, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               15, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               15, "NoteOn", "Note" -> 67, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               18, "NoteOff", "Note" -> 67, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               18, "NoteOn", "Note" -> 72, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               21, "NoteOff", "Note" -> 72, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               21, "NoteOn", "Note" -> 76, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               24, "NoteOff", "Note" -> 76, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               24, "NoteOn", "Note" -> 79, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               27, "NoteOff", "Note" -> 79, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               27, "NoteOn", "Note" -> 84, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               30, "NoteOff", "Note" -> 84, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               30, "NoteOn", "Note" -> 88, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               33, "NoteOff", "Note" -> 88, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               33, "NoteOn", "Note" -> 91, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               36, "NoteOff", "Note" -> 91, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               36, "NoteOn", "Note" -> 96, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               39, "NoteOff", "Note" -> 96, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               39, "NoteOn", "Note" -> 100, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               42, "NoteOff", "Note" -> 100, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               42, "NoteOn", "Note" -> 103, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               45, "NoteOff", "Note" -> 103, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               45, "NoteOn", "Note" -> 108, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               48, "NoteOff", "Note" -> 108, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               48, "NoteOn", "Note" -> 108, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               51, "NoteOff", "Note" -> 108, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               51, "NoteOn", "Note" -> 103, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               54, "NoteOff", "Note" -> 103, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               54, "NoteOn", "Note" -> 100, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               57, "NoteOff", "Note" -> 100, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               57, "NoteOn", "Note" -> 96, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               60, "NoteOff", "Note" -> 96, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               60, "NoteOn", "Note" -> 91, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               63, "NoteOff", "Note" -> 91, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               63, "NoteOn", "Note" -> 88, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               66, "NoteOff", "Note" -> 88, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               66, "NoteOn", "Note" -> 84, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               69, "NoteOff", "Note" -> 84, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               69, "NoteOn", "Note" -> 79, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               72, "NoteOff", "Note" -> 79, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               72, "NoteOn", "Note" -> 76, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               75, "NoteOff", "Note" -> 76, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               75, "NoteOn", "Note" -> 72, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               78, "NoteOff", "Note" -> 72, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               78, "NoteOn", "Note" -> 67, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               81, "NoteOff", "Note" -> 67, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               81, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               84, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               84, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               87, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               87, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               90, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               90, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               93, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               93, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               96, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               96, "NoteOn", "Note" -> 45, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               99, "NoteOff", "Note" -> 45, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               99, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 107], 
               Sound`MIDIEvent[
               102, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               102, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               105, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               105, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               108, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               108, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               111, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               111, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               114, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               114, "NoteOn", "Note" -> 69, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               117, "NoteOff", "Note" -> 69, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               117, "NoteOn", "Note" -> 72, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               120, "NoteOff", "Note" -> 72, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               120, "NoteOn", "Note" -> 76, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               123, "NoteOff", "Note" -> 76, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               123, "NoteOn", "Note" -> 81, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               126, "NoteOff", "Note" -> 81, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               126, "NoteOn", "Note" -> 84, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               129, "NoteOff", "Note" -> 84, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               129, "NoteOn", "Note" -> 88, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               132, "NoteOff", "Note" -> 88, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               132, "NoteOn", "Note" -> 93, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               135, "NoteOff", "Note" -> 93, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               135, "NoteOn", "Note" -> 96, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               138, "NoteOff", "Note" -> 96, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               138, "NoteOn", "Note" -> 100, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               141, "NoteOff", "Note" -> 100, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               141, "NoteOn", "Note" -> 105, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               144, "NoteOff", "Note" -> 105, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               144, "NoteOn", "Note" -> 105, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               147, "NoteOff", "Note" -> 105, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               147, "NoteOn", "Note" -> 100, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               150, "NoteOff", "Note" -> 100, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               150, "NoteOn", "Note" -> 96, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               153, "NoteOff", "Note" -> 96, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               153, "NoteOn", "Note" -> 93, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               156, "NoteOff", "Note" -> 93, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               156, "NoteOn", "Note" -> 88, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               159, "NoteOff", "Note" -> 88, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               159, "NoteOn", "Note" -> 84, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               162, "NoteOff", "Note" -> 84, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               162, "NoteOn", "Note" -> 81, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               165, "NoteOff", "Note" -> 81, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               165, "NoteOn", "Note" -> 76, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               168, "NoteOff", "Note" -> 76, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               168, "NoteOn", "Note" -> 72, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               171, "NoteOff", "Note" -> 72, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               171, "NoteOn", "Note" -> 69, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               174, "NoteOff", "Note" -> 69, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               174, "NoteOn", "Note" -> 64, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               177, "NoteOff", "Note" -> 64, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               177, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               180, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               180, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               183, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               183, "NoteOn", "Note" -> 52, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               186, "NoteOff", "Note" -> 52, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               186, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               189, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               189, "NoteOn", "Note" -> 45, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               192, "NoteOff", "Note" -> 45, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               192, "NoteOn", "Note" -> 41, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               195, "NoteOff", "Note" -> 41, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               195, "NoteOn", "Note" -> 45, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               198, "NoteOff", "Note" -> 45, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               198, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               201, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               201, "NoteOn", "Note" -> 53, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               204, "NoteOff", "Note" -> 53, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               204, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               207, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               207, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               210, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               210, "NoteOn", "Note" -> 65, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               213, "NoteOff", "Note" -> 65, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               213, "NoteOn", "Note" -> 69, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               216, "NoteOff", "Note" -> 69, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               216, "NoteOn", "Note" -> 72, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               219, "NoteOff", "Note" -> 72, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               219, "NoteOn", "Note" -> 77, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               222, "NoteOff", "Note" -> 77, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               222, "NoteOn", "Note" -> 81, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               225, "NoteOff", "Note" -> 81, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               225, "NoteOn", "Note" -> 84, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               228, "NoteOff", "Note" -> 84, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               228, "NoteOn", "Note" -> 89, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               231, "NoteOff", "Note" -> 89, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               231, "NoteOn", "Note" -> 93, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               234, "NoteOff", "Note" -> 93, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               234, "NoteOn", "Note" -> 96, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               237, "NoteOff", "Note" -> 96, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               237, "NoteOn", "Note" -> 101, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               240, "NoteOff", "Note" -> 101, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               240, "NoteOn", "Note" -> 101, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               243, "NoteOff", "Note" -> 101, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               243, "NoteOn", "Note" -> 96, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               246, "NoteOff", "Note" -> 96, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               246, "NoteOn", "Note" -> 93, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               249, "NoteOff", "Note" -> 93, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               249, "NoteOn", "Note" -> 89, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               252, "NoteOff", "Note" -> 89, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               252, "NoteOn", "Note" -> 84, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               255, "NoteOff", "Note" -> 84, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               255, "NoteOn", "Note" -> 81, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               258, "NoteOff", "Note" -> 81, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               258, "NoteOn", "Note" -> 77, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               261, "NoteOff", "Note" -> 77, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               261, "NoteOn", "Note" -> 72, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               264, "NoteOff", "Note" -> 72, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               264, "NoteOn", "Note" -> 69, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               267, "NoteOff", "Note" -> 69, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               267, "NoteOn", "Note" -> 65, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               270, "NoteOff", "Note" -> 65, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               270, "NoteOn", "Note" -> 60, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               273, "NoteOff", "Note" -> 60, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               273, "NoteOn", "Note" -> 57, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               276, "NoteOff", "Note" -> 57, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               276, "NoteOn", "Note" -> 53, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               279, "NoteOff", "Note" -> 53, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               279, "NoteOn", "Note" -> 48, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               282, "NoteOff", "Note" -> 48, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               282, "NoteOn", "Note" -> 45, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               285, "NoteOff", "Note" -> 45, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               285, "NoteOn", "Note" -> 41, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               288, "NoteOff", "Note" -> 41, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               288, "NoteOn", "Note" -> 43, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               291, "NoteOff", "Note" -> 43, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               291, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               294, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               294, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               297, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               297, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               300, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               300, "NoteOn", "Note" -> 59, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               303, "NoteOff", "Note" -> 59, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               303, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               306, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               306, "NoteOn", "Note" -> 67, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               309, "NoteOff", "Note" -> 67, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               309, "NoteOn", "Note" -> 71, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               312, "NoteOff", "Note" -> 71, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               312, "NoteOn", "Note" -> 74, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               315, "NoteOff", "Note" -> 74, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               315, "NoteOn", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               318, "NoteOff", "Note" -> 79, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               318, "NoteOn", "Note" -> 83, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               321, "NoteOff", "Note" -> 83, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               321, "NoteOn", "Note" -> 86, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               324, "NoteOff", "Note" -> 86, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               324, "NoteOn", "Note" -> 91, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               327, "NoteOff", "Note" -> 91, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               327, "NoteOn", "Note" -> 95, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               330, "NoteOff", "Note" -> 95, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               330, "NoteOn", "Note" -> 98, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               333, "NoteOff", "Note" -> 98, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               333, "NoteOn", "Note" -> 103, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               336, "NoteOff", "Note" -> 103, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               336, "NoteOn", "Note" -> 103, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               339, "NoteOff", "Note" -> 103, "Channel" -> 0, "Velocity" -> 
                0], 
               Sound`MIDIEvent[
               339, "NoteOn", "Note" -> 98, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               342, "NoteOff", "Note" -> 98, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               342, "NoteOn", "Note" -> 95, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               345, "NoteOff", "Note" -> 95, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               345, "NoteOn", "Note" -> 91, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               348, "NoteOff", "Note" -> 91, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               348, "NoteOn", "Note" -> 86, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               351, "NoteOff", "Note" -> 86, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               351, "NoteOn", "Note" -> 83, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               354, "NoteOff", "Note" -> 83, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               354, "NoteOn", "Note" -> 79, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               357, "NoteOff", "Note" -> 79, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               357, "NoteOn", "Note" -> 74, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               360, "NoteOff", "Note" -> 74, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               360, "NoteOn", "Note" -> 71, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               363, "NoteOff", "Note" -> 71, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               363, "NoteOn", "Note" -> 67, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               366, "NoteOff", "Note" -> 67, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               366, "NoteOn", "Note" -> 62, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               369, "NoteOff", "Note" -> 62, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               369, "NoteOn", "Note" -> 59, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               372, "NoteOff", "Note" -> 59, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               372, "NoteOn", "Note" -> 55, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               375, "NoteOff", "Note" -> 55, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               375, "NoteOn", "Note" -> 50, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               378, "NoteOff", "Note" -> 50, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               378, "NoteOn", "Note" -> 47, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               381, "NoteOff", "Note" -> 47, "Channel" -> 0, "Velocity" -> 0], 
               Sound`MIDIEvent[
               381, "NoteOn", "Note" -> 43, "Channel" -> 0, "Velocity" -> 
                107], 
               Sound`MIDIEvent[
               384, "NoteOff", "Note" -> 43, "Channel" -> 0, "Velocity" -> 
                0]}]}, "DivisionType" -> "PPQ", "Resolution" -> 48]]; 
         Sound`EmitSampledSound[None, "Preemptive"], 
         FEPrivate`EmitSound[None, "Preemptive"]], Method -> "Preemptive", 
       PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    TagBox[{
      {RGBColor[0.9568627450980393, 0.9568627450980393, 0.9568627450980393], 
       RectangleBox[{29, -158}, {53, -135}]}, 
      {RGBColor[0.27450980392156865`, 0.5411764705882353, 0.796078431372549], 
       RectangleBox[{35, -152}, {47, -141}], 
       StyleBox[{},
        Antialiasing->False]}},
     EventHandlerTag[{"MouseClicked" :> If[True, Sound`EmitSampledSound[
           SampledSoundList[{{0.}}, 8000], "Preemptive"]; Sound`StopMIDI[], 
         FEPrivate`EmitSound[
          SampledSoundList[{{0.}}, 8000], "Preemptive"]], Method -> 
       "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], 
    {GrayLevel[0.75], 
     StyleBox[LineBox[{{0, 0}, {360, 0}, {360, -164}, {0, -164}, {0, 0}}],
      Antialiasing->False]}},
   ContentSelectable->False,
   ImageSize->250,
   PlotRange->{{0, 360}, {-164, 0}},
   PlotRangePadding->1],
  Sound[{
    SoundNote["C3", {0, 
      Rational[1, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E3", {
      Rational[1, 16], 
      Rational[1, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G3", {
      Rational[1, 8], 
      Rational[3, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C4", {
      Rational[3, 16], 
      Rational[1, 4]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E4", {
      Rational[1, 4], 
      Rational[5, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G4", {
      Rational[5, 16], 
      Rational[3, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C5", {
      Rational[3, 8], 
      Rational[7, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E5", {
      Rational[7, 16], 
      Rational[1, 2]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G5", {
      Rational[1, 2], 
      Rational[9, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C6", {
      Rational[9, 16], 
      Rational[5, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E6", {
      Rational[5, 8], 
      Rational[11, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G6", {
      Rational[11, 16], 
      Rational[3, 4]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C7", {
      Rational[3, 4], 
      Rational[13, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E7", {
      Rational[13, 16], 
      Rational[7, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G7", {
      Rational[7, 8], 
      Rational[15, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C8", {
      Rational[15, 16], 1}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C8", {1, 
      Rational[17, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G7", {
      Rational[17, 16], 
      Rational[9, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E7", {
      Rational[9, 8], 
      Rational[19, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C7", {
      Rational[19, 16], 
      Rational[5, 4]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G6", {
      Rational[5, 4], 
      Rational[21, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E6", {
      Rational[21, 16], 
      Rational[11, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C6", {
      Rational[11, 8], 
      Rational[23, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G5", {
      Rational[23, 16], 
      Rational[3, 2]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E5", {
      Rational[3, 2], 
      Rational[25, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C5", {
      Rational[25, 16], 
      Rational[13, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G4", {
      Rational[13, 8], 
      Rational[27, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E4", {
      Rational[27, 16], 
      Rational[7, 4]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C4", {
      Rational[7, 4], 
      Rational[29, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G3", {
      Rational[29, 16], 
      Rational[15, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E3", {
      Rational[15, 8], 
      Rational[31, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C3", {
      Rational[31, 16], 2}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A2", {2, 
      Rational[33, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C3", {
      Rational[33, 16], 
      Rational[17, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E3", {
      Rational[17, 8], 
      Rational[35, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A3", {
      Rational[35, 16], 
      Rational[9, 4]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C4", {
      Rational[9, 4], 
      Rational[37, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E4", {
      Rational[37, 16], 
      Rational[19, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A4", {
      Rational[19, 8], 
      Rational[39, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C5", {
      Rational[39, 16], 
      Rational[5, 2]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E5", {
      Rational[5, 2], 
      Rational[41, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A5", {
      Rational[41, 16], 
      Rational[21, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C6", {
      Rational[21, 8], 
      Rational[43, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E6", {
      Rational[43, 16], 
      Rational[11, 4]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A6", {
      Rational[11, 4], 
      Rational[45, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C7", {
      Rational[45, 16], 
      Rational[23, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E7", {
      Rational[23, 8], 
      Rational[47, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A7", {
      Rational[47, 16], 3}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A7", {3, 
      Rational[49, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E7", {
      Rational[49, 16], 
      Rational[25, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C7", {
      Rational[25, 8], 
      Rational[51, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A6", {
      Rational[51, 16], 
      Rational[13, 4]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E6", {
      Rational[13, 4], 
      Rational[53, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C6", {
      Rational[53, 16], 
      Rational[27, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A5", {
      Rational[27, 8], 
      Rational[55, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E5", {
      Rational[55, 16], 
      Rational[7, 2]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C5", {
      Rational[7, 2], 
      Rational[57, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A4", {
      Rational[57, 16], 
      Rational[29, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E4", {
      Rational[29, 8], 
      Rational[59, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C4", {
      Rational[59, 16], 
      Rational[15, 4]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A3", {
      Rational[15, 4], 
      Rational[61, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["E3", {
      Rational[61, 16], 
      Rational[31, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C3", {
      Rational[31, 8], 
      Rational[63, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A2", {
      Rational[63, 16], 4}, "Piano", SoundVolume -> 0.85], 
    SoundNote["F2", {4, 
      Rational[65, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A2", {
      Rational[65, 16], 
      Rational[33, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C3", {
      Rational[33, 8], 
      Rational[67, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["F3", {
      Rational[67, 16], 
      Rational[17, 4]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A3", {
      Rational[17, 4], 
      Rational[69, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C4", {
      Rational[69, 16], 
      Rational[35, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["F4", {
      Rational[35, 8], 
      Rational[71, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A4", {
      Rational[71, 16], 
      Rational[9, 2]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C5", {
      Rational[9, 2], 
      Rational[73, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["F5", {
      Rational[73, 16], 
      Rational[37, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A5", {
      Rational[37, 8], 
      Rational[75, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C6", {
      Rational[75, 16], 
      Rational[19, 4]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["F6", {
      Rational[19, 4], 
      Rational[77, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A6", {
      Rational[77, 16], 
      Rational[39, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C7", {
      Rational[39, 8], 
      Rational[79, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["F7", {
      Rational[79, 16], 5}, "Piano", SoundVolume -> 0.85], 
    SoundNote["F7", {5, 
      Rational[81, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C7", {
      Rational[81, 16], 
      Rational[41, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A6", {
      Rational[41, 8], 
      Rational[83, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["F6", {
      Rational[83, 16], 
      Rational[21, 4]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C6", {
      Rational[21, 4], 
      Rational[85, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A5", {
      Rational[85, 16], 
      Rational[43, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["F5", {
      Rational[43, 8], 
      Rational[87, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C5", {
      Rational[87, 16], 
      Rational[11, 2]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A4", {
      Rational[11, 2], 
      Rational[89, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["F4", {
      Rational[89, 16], 
      Rational[45, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C4", {
      Rational[45, 8], 
      Rational[91, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A3", {
      Rational[91, 16], 
      Rational[23, 4]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["F3", {
      Rational[23, 4], 
      Rational[93, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["C3", {
      Rational[93, 16], 
      Rational[47, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["A2", {
      Rational[47, 8], 
      Rational[95, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["F2", {
      Rational[95, 16], 6}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G2", {6, 
      Rational[97, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["B2", {
      Rational[97, 16], 
      Rational[49, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["D3", {
      Rational[49, 8], 
      Rational[99, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G3", {
      Rational[99, 16], 
      Rational[25, 4]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["B3", {
      Rational[25, 4], 
      Rational[101, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["D4", {
      Rational[101, 16], 
      Rational[51, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G4", {
      Rational[51, 8], 
      Rational[103, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["B4", {
      Rational[103, 16], 
      Rational[13, 2]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["D5", {
      Rational[13, 2], 
      Rational[105, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G5", {
      Rational[105, 16], 
      Rational[53, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["B5", {
      Rational[53, 8], 
      Rational[107, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["D6", {
      Rational[107, 16], 
      Rational[27, 4]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G6", {
      Rational[27, 4], 
      Rational[109, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["B6", {
      Rational[109, 16], 
      Rational[55, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["D7", {
      Rational[55, 8], 
      Rational[111, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G7", {
      Rational[111, 16], 7}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G7", {7, 
      Rational[113, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["D7", {
      Rational[113, 16], 
      Rational[57, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["B6", {
      Rational[57, 8], 
      Rational[115, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G6", {
      Rational[115, 16], 
      Rational[29, 4]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["D6", {
      Rational[29, 4], 
      Rational[117, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["B5", {
      Rational[117, 16], 
      Rational[59, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G5", {
      Rational[59, 8], 
      Rational[119, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["D5", {
      Rational[119, 16], 
      Rational[15, 2]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["B4", {
      Rational[15, 2], 
      Rational[121, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G4", {
      Rational[121, 16], 
      Rational[61, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["D4", {
      Rational[61, 8], 
      Rational[123, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["B3", {
      Rational[123, 16], 
      Rational[31, 4]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G3", {
      Rational[31, 4], 
      Rational[125, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["D3", {
      Rational[125, 16], 
      Rational[63, 8]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["B2", {
      Rational[63, 8], 
      Rational[127, 16]}, "Piano", SoundVolume -> 0.85], 
    SoundNote["G2", {
      Rational[127, 16], 8}, "Piano", SoundVolume -> 0.85]}]]], "Output",
 CellChangeTimes->{{3.722269140550892*^9, 3.7222691728497267`*^9}, 
   3.7222692153917084`*^9, 3.7222730040488276`*^9, {3.722273050704341*^9, 
   3.72227306604707*^9}, 3.7222732690271225`*^9, {3.7222733655761547`*^9, 
   3.722273393101977*^9}, {3.722273622367265*^9, 3.72227364458968*^9}, 
   3.722274019616237*^9, 3.722274159182996*^9}]
}, Open  ]],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 0.5}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 3}],

Cell[BoxData[
 RowBox[{
  RowBox[{"c", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<C3\>\"", ",", "\"\<C4\>\"", ",", "\"\<E4\>\"", ",", "\"\<G4\>\"", 
       ",", "\"\<C5\>\"", ",", "\"\<E5\>\"", ",", "\"\<G5\>\""}], "}"}], ",", 
     RowBox[{"(*", 
      RowBox[{"1", "^"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<A2\>\"", ",", "\"\<A3\>\"", ",", "\"\<C4\>\"", ",", "\"\<E4\>\"", 
       ",", "\"\<A4\>\"", ",", "\"\<C5\>\"", ",", "\"\<E5\>\""}], "}"}], ",", 
     RowBox[{"(*", "6", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<F2\>\"", ",", "\"\<F3\>\"", ",", "\"\<A3\>\"", ",", "\"\<C4\>\"", 
       ",", "\"\<F4\>\"", ",", "\"\<A4\>\"", ",", "\"\<C5\>\""}], "}"}], ",", 
     RowBox[{"(*", "4", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<G2\>\"", ",", "\"\<G3\>\"", ",", "\"\<B3\>\"", ",", "\"\<D4\>\"", 
       ",", "\"\<G4\>\"", ",", "\"\<B4\>\"", ",", "\"\<D5\>\""}], "}"}]}], 
    "    ", 
    RowBox[{"(*", "5", "*)"}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.722197578990754*^9, 3.7221976268715024`*^9}, {
  3.7221976716175003`*^9, 3.722197899334956*^9}, {3.7221979336327868`*^9, 
  3.722197969383865*^9}, {3.7221980392746563`*^9, 3.72219804041873*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "\:628a\:97f3\:7b26\:4e00\:5206\:4e3a\:4e8c", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"vol", "=", "0.7"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sl", "[", 
     RowBox[{"array_", ",", "con_"}], "]"}], ":=", 
    RowBox[{"If", "[", 
     RowBox[{"con", ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"SoundNote", "[", 
         RowBox[{
          RowBox[{
          "array", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"array", "\[LeftDoubleBracket]", 
             RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
            RowBox[{
             RowBox[{"array", "\[LeftDoubleBracket]", 
              RowBox[{"2", ",", "2"}], "\[RightDoubleBracket]"}], "-", 
             RowBox[{"1", "/", "4"}]}]}], "}"}], ",", 
          RowBox[{
          "array", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
          ",", 
          RowBox[{"SoundVolume", "\[Rule]", "vol"}]}], "]"}], ",", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"SoundNote", "[", 
         RowBox[{
          RowBox[{
          "array", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"array", "\[LeftDoubleBracket]", 
              RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}], "+", 
             RowBox[{"1", "/", "4"}]}], ",", 
            RowBox[{"array", "\[LeftDoubleBracket]", 
             RowBox[{"2", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", 
          RowBox[{
          "array", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
          ",", 
          RowBox[{"SoundVolume", "\[Rule]", "vol"}]}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"SoundNote", "[", 
       RowBox[{
        RowBox[{
        "array", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
        RowBox[{
        "array", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", 
        RowBox[{
        "array", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", 
        RowBox[{"SoundVolume", "\[Rule]", "vol"}]}], "]"}]}], 
     "\[IndentingNewLine]", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.722254413816532*^9, 3.7222546072218466`*^9}, 
   3.7222546775685043`*^9, {3.7222548231983166`*^9, 3.7222548410711803`*^9}, {
   3.7222549016545963`*^9, 3.722254962331995*^9}, {3.7222552671259494`*^9, 
   3.7222552776360455`*^9}, {3.722255314640726*^9, 3.722255318093668*^9}, {
   3.722255385630083*^9, 3.7222553877251797`*^9}, {3.722255873107031*^9, 
   3.722255926311207*^9}, {3.722255995493985*^9, 3.7222559956728477`*^9}, {
   3.722256026446639*^9, 3.722256026945386*^9}, {3.7222562751742153`*^9, 
   3.7222563438001165`*^9}, {3.7222567661280165`*^9, 
   3.7222568578998404`*^9}, {3.722264320938365*^9, 3.7222643516438947`*^9}, 
   3.7222749937101903`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Accomp", "[", 
   RowBox[{"no_", ",", "st_", ",", "slshli_", ",", "moveli_"}], "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"SoundNote", "[", 
         RowBox[{
          RowBox[{"c", "\[LeftDoubleBracket]", 
           RowBox[{"n", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"8", "s"}], "+", 
             RowBox[{"2", 
              RowBox[{"(", 
               RowBox[{"n", "-", "1"}], ")"}]}]}], ",", 
            RowBox[{
             RowBox[{"8", "s"}], "+", 
             RowBox[{"2", "n"}]}]}], "}"}], ",", "\"\<Violin\>\"", ",", 
          RowBox[{"SoundVolume", "\[Rule]", "0.85"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"n", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"sl", "[", 
         RowBox[{
          RowBox[{"{", "\[IndentingNewLine]", 
           RowBox[{"(*", "\:8f6c\:4f4d", "*)"}], " ", 
           RowBox[{
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"MemberQ", "[", 
               RowBox[{"moveli", ",", "m"}], "]"}], ",", 
              RowBox[{"c", "\[LeftDoubleBracket]", 
               RowBox[{"n", ",", 
                RowBox[{"3", ";;", "5"}]}], "\[RightDoubleBracket]"}], ",", 
              RowBox[{"c", "\[LeftDoubleBracket]", 
               RowBox[{"n", ",", 
                RowBox[{"1", ";;", "4"}]}], "\[RightDoubleBracket]"}]}], 
             "]"}], "\[IndentingNewLine]", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"8", "s"}], "+", 
               RowBox[{"2", 
                RowBox[{"(", 
                 RowBox[{"n", "-", "1"}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"m", "-", "1"}], ")"}], "/", "2"}]}], ",", 
              RowBox[{
               RowBox[{"8", "s"}], "+", 
               RowBox[{"2", 
                RowBox[{"(", 
                 RowBox[{"n", "-", "1"}], ")"}]}], "+", 
               RowBox[{"m", "/", "2"}]}]}], "}"}], ",", "\"\<Piano\>\""}], 
           "}"}], ",", 
          RowBox[{"MemberQ", "[", 
           RowBox[{"slshli", ",", "m"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"n", ",", "1", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"m", ",", "1", ",", "4"}], "}"}]}], "]"}]}], 
     "\[IndentingNewLine]", "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"s", ",", 
      RowBox[{"no", "-", "1"}], ",", 
      RowBox[{"no", "-", "1", "+", "st", "-", "1"}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.660384408851067*^9, 3.660384607708441*^9}, {
   3.660384638345193*^9, 3.6603846872719917`*^9}, {3.6603847398339977`*^9, 
   3.6603847672735677`*^9}, 3.660384824592846*^9, {3.6603849459867897`*^9, 
   3.6603849474508734`*^9}, 3.660385090112033*^9, 3.66038519584208*^9, 
   3.660385298213936*^9, 3.660385433979701*^9, 3.660385540221778*^9, 
   3.6603857014329987`*^9, 3.6603858333065414`*^9, 3.660385902778515*^9, {
   3.722197139596427*^9, 3.7221972246746635`*^9}, {3.722197256792407*^9, 
   3.7221972760320787`*^9}, {3.722197399133976*^9, 3.722197478817627*^9}, {
   3.7221979768650246`*^9, 3.7221980564028244`*^9}, {3.722198101210281*^9, 
   3.722198142128916*^9}, {3.7221981750927687`*^9, 3.722198232445656*^9}, {
   3.7221982643329363`*^9, 3.7221982675845165`*^9}, {3.722198353486167*^9, 
   3.7221983924837656`*^9}, {3.7221986124373918`*^9, 
   3.7221986673658347`*^9}, {3.7221987798038316`*^9, 
   3.7221988438074164`*^9}, {3.7222000698579082`*^9, 3.722200075798376*^9}, {
   3.722254665868634*^9, 3.7222546710433793`*^9}, {3.722255228858637*^9, 
   3.722255260087762*^9}, {3.7222566580754404`*^9, 3.722256737553089*^9}, {
   3.7222570857397904`*^9, 3.7222571645161653`*^9}, {3.722257206356926*^9, 
   3.7222572472580023`*^9}, {3.722257365837365*^9, 3.7222574053589635`*^9}, {
   3.7222580883675222`*^9, 3.7222582049078426`*^9}, {3.7222595327028465`*^9, 
   3.7222595433456*^9}, {3.7222635794153385`*^9, 3.7222636170420313`*^9}, {
   3.72226385938951*^9, 3.7222638606523094`*^9}, 3.722263922805667*^9, 
   3.722263965327693*^9, {3.7222640105172296`*^9, 3.722264016027566*^9}, {
   3.7222645388267136`*^9, 3.7222645485948915`*^9}, {3.7222713822730637`*^9, 
   3.72227140587501*^9}, {3.7222722610588026`*^9, 3.722272263968991*^9}}],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 0.5}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 3}],

Cell[BoxData[
 RowBox[{
  RowBox[{"cs", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<G4\>\"", ",", "\"\<C5\>\"", ",", "\"\<E5\>\"", ",", "\"\<G5\>\"", 
       ",", "\"\<C6\>\"", ",", "\"\<E6\>\"", ",", "\"\<G6\>\""}], "}"}], ",", 
     RowBox[{"(*", 
      RowBox[{"1", "^"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<E4\>\"", ",", "\"\<A4\>\"", ",", "\"\<C5\>\"", ",", "\"\<E5\>\"", 
       ",", "\"\<A5\>\"", ",", "\"\<C6\>\"", ",", "\"\<E6\>\""}], "}"}], ",", 
     RowBox[{"(*", "6", "*)"}], 
     RowBox[{"{", 
      RowBox[{
      "\"\<C4\>\"", ",", "\"\<F4\>\"", ",", "\"\<A4\>\"", ",", "\"\<C5\>\"", 
       ",", "\"\<F5\>\"", ",", "\"\<A5\>\"", ",", "\"\<C6\>\""}], "}"}], ",", 
     RowBox[{"(*", "4", "*)"}], 
     RowBox[{"{", 
      RowBox[{
      "\"\<D4\>\"", ",", "\"\<G4\>\"", ",", "\"\<B4\>\"", ",", "\"\<D5\>\"", 
       ",", "\"\<G5\>\"", ",", "\"\<B5\>\"", ",", "\"\<D6\>\""}], "}"}]}], 
    "    ", 
    RowBox[{"(*", "5", "*)"}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.722197578990754*^9, 3.7221976268715024`*^9}, {
   3.7221976716175003`*^9, 3.722197899334956*^9}, {3.7221979336327868`*^9, 
   3.722197969383865*^9}, {3.7221980392746563`*^9, 3.72219804041873*^9}, {
   3.722199829796664*^9, 3.722199845002311*^9}, 3.7221999071059017`*^9, {
   3.7222456532250443`*^9, 3.722245680467621*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Gen", "[", 
   RowBox[{"num_", ",", "st_"}], "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"g", "=", 
     RowBox[{
      RowBox[{"RealDigits", "[", 
       RowBox[{"num", ",", "10", ",", 
        RowBox[{"8", "*", 
         RowBox[{"(", 
          RowBox[{"st", "+", "1"}], ")"}]}]}], "]"}], "\[LeftDoubleBracket]", 
      "1", "\[RightDoubleBracket]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"mainli", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"OddQ", "[", "s", "]"}], ",", 
         RowBox[{"g", "\[LeftDoubleBracket]", 
          RowBox[{
           RowBox[{
            RowBox[{"8", "s"}], "-", "6"}], ";;", 
           RowBox[{
            RowBox[{"8", "s"}], "-", "1"}]}], "\[RightDoubleBracket]"}], ",", 
         RowBox[{"g", "\[LeftDoubleBracket]", 
          RowBox[{
           RowBox[{
            RowBox[{"8", "s"}], "-", "10"}], ";;", 
           RowBox[{"8", "s"}]}], "\[RightDoubleBracket]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"s", ",", "1", ",", "st"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"(*", "\:5947\:5076\:5c0f\:8282\:758f\:5bc6\:4ea4\:9519", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"slshli", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Mod", "[", 
         RowBox[{
          RowBox[{
          "g", "\[LeftDoubleBracket]", "no", "\[RightDoubleBracket]"}], ",", 
          "4", ",", "1"}], "]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"no", ",", "1", ",", "st"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"moveli", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Mod", "[", 
        RowBox[{
         RowBox[{"g", "\[LeftDoubleBracket]", 
          RowBox[{
           RowBox[{"no", "+", "1"}], ";;", 
           RowBox[{"no", "+", "2"}]}], "\[RightDoubleBracket]"}], ",", "4", 
         ",", "1"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"no", ",", "1", ",", "st"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Sound", "[", 
     RowBox[{"Flatten", "[", 
      RowBox[{"{", 
       RowBox[{
       "(*", "\:6bcf\:4e24\:5c0f\:8282\:4f34\:594f\:7528\:4e0d\:540c\:8282\
\:594f", "*)"}], 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Accomp", "[", 
           RowBox[{"no", ",", "2", ",", 
            RowBox[{
            "slshli", "\[LeftDoubleBracket]", "no", "\[RightDoubleBracket]"}],
             ",", 
            RowBox[{
            "moveli", "\[LeftDoubleBracket]", "no", 
             "\[RightDoubleBracket]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"no", ",", "1", ",", "st"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"MemberQ", "[", 
              RowBox[{
               RowBox[{"mainli", "\[LeftDoubleBracket]", 
                RowBox[{"Ceiling", "[", 
                 RowBox[{"i", "/", 
                  RowBox[{"(", 
                   RowBox[{"8", "*", "4"}], ")"}]}], "]"}], 
                "\[RightDoubleBracket]"}], ",", 
               RowBox[{"Mod", "[", 
                RowBox[{"i", ",", "8", ",", "1"}], "]"}]}], "]"}], "||", 
             RowBox[{
              RowBox[{"Mod", "[", 
               RowBox[{
                RowBox[{"Ceiling", "[", 
                 RowBox[{"i", "/", "8"}], "]"}], ",", "4"}], "]"}], 
              "\[Equal]", "3"}]}], ",", 
            RowBox[{
            "(*", "\:4e3b\:65cb\:5f8b\:7684\:8282\:594f\:8868", "*)"}], 
            RowBox[{"SoundNote", "[", 
             RowBox[{
              RowBox[{"cs", "\[LeftDoubleBracket]", 
               RowBox[{
                RowBox[{"Mod", "[", 
                 RowBox[{
                  RowBox[{"Ceiling", "[", 
                   RowBox[{"i", "/", "8"}], "]"}], ",", "4", ",", "1"}], 
                 "]"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                "(*", "\:4e3b\:65cb\:5f8b\:6bcf\:5c0f\:8282\:7528\:76f8\:540c\
\:5e8f\:5217", "*)"}], " ", 
                RowBox[{
                 RowBox[{"Mod", "[", 
                  RowBox[{
                   RowBox[{"g", "\[LeftDoubleBracket]", 
                    RowBox[{
                    RowBox[{"Mod", "[", 
                    RowBox[{"i", ",", "8", ",", "1"}], "]"}], "+", 
                    RowBox[{
                    RowBox[{"Floor", "[", 
                    RowBox[{"i", "/", "32"}], "]"}], "*", "8"}]}], 
                    "\[RightDoubleBracket]"}], ",", "6"}], "]"}], "+", 
                 "2"}]}], "\[RightDoubleBracket]"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"8", "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"i", "-", "1"}], ")"}], "/", "4"}]}], ",", 
                RowBox[{"8", "+", 
                 RowBox[{"i", "/", "4"}]}]}], "}"}], ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"OddQ", "[", 
                 RowBox[{"Floor", "[", 
                  RowBox[{
                   RowBox[{"i", "/", "32"}], "-", "0.01"}], "]"}], "]"}], 
                ",", "\"\<Piano\>\"", ",", "\"\<Flute\>\""}], "]"}]}], 
             "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{"32", "*", 
             RowBox[{"(", 
              RowBox[{"st", "-", "1"}], ")"}]}]}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", "\:70b9\:7f00", "*)"}], " ", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"SoundNote", "[", 
           RowBox[{
            RowBox[{
            "pa", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"8", 
                RowBox[{"st", "/", "2"}]}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"i", "-", "1"}], ")"}], "/", "16"}]}], ",", 
              RowBox[{
               RowBox[{"8", 
                RowBox[{"st", "/", "2"}]}], "+", 
               RowBox[{"i", "/", "16"}]}]}], "}"}], ",", "\"\<Piano\>\""}], 
           "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{"Length", "[", "pa", "]"}]}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"SoundNote", "[", 
           RowBox[{
            RowBox[{
            "pa", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"8", "st"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"i", "-", "1"}], ")"}], "/", "16"}]}], ",", 
              RowBox[{
               RowBox[{"8", "st"}], "+", 
               RowBox[{"i", "/", "16"}]}]}], "}"}], ",", "\"\<Piano\>\""}], 
           "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{"Length", "[", "pa", "]"}]}], "}"}]}], "]"}]}], 
       "\[IndentingNewLine]", "}"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.660384408851067*^9, 3.660384607708441*^9}, {
   3.660384638345193*^9, 3.6603846872719917`*^9}, {3.6603847398339977`*^9, 
   3.6603847672735677`*^9}, 3.660384824592846*^9, {3.6603849459867897`*^9, 
   3.6603849474508734`*^9}, 3.660385090112033*^9, 3.66038519584208*^9, 
   3.660385298213936*^9, 3.660385433979701*^9, 3.660385540221778*^9, 
   3.6603857014329987`*^9, 3.6603858333065414`*^9, 3.660385902778515*^9, {
   3.722197139596427*^9, 3.7221972246746635`*^9}, {3.722197256792407*^9, 
   3.7221972760320787`*^9}, {3.722197399133976*^9, 3.722197478817627*^9}, {
   3.7221979768650246`*^9, 3.7221980564028244`*^9}, {3.722198101210281*^9, 
   3.722198142128916*^9}, {3.7221981750927687`*^9, 3.722198232445656*^9}, {
   3.7221982643329363`*^9, 3.7221982675845165`*^9}, {3.722198353486167*^9, 
   3.7221983924837656`*^9}, {3.7221986124373918`*^9, 
   3.7221986673658347`*^9}, {3.7221987798038316`*^9, 
   3.7221988438074164`*^9}, {3.7221990757519393`*^9, 3.722199164128261*^9}, {
   3.7221992083556995`*^9, 3.722199209323332*^9}, {3.722199380231675*^9, 
   3.722199393032176*^9}, {3.722199428942648*^9, 3.7221994675962663`*^9}, {
   3.722199580127279*^9, 3.7221995861228046`*^9}, {3.722199659105898*^9, 
   3.7221997053140497`*^9}, {3.7221997815566764`*^9, 3.722199783516164*^9}, 
   3.722199915469581*^9, 3.722199958996092*^9, {3.7222000828720894`*^9, 
   3.7222001230228653`*^9}, {3.7222006703754454`*^9, 3.722200752963072*^9}, {
   3.7222018263958*^9, 3.7222018291206956`*^9}, {3.722245707729942*^9, 
   3.722245722248347*^9}, {3.7222458502806826`*^9, 3.7222458537844067`*^9}, {
   3.722258436325341*^9, 3.7222584630233502`*^9}, {3.7222584948633657`*^9, 
   3.7222585003825254`*^9}, {3.7222586779778304`*^9, 3.722258711965848*^9}, 
   3.7222589666124935`*^9, {3.722259177007092*^9, 3.722259210197703*^9}, {
   3.72225933584492*^9, 3.722259339011588*^9}, {3.7222593963583083`*^9, 
   3.722259399351637*^9}, {3.7222595630759144`*^9, 3.722259570745304*^9}, {
   3.7222596826574097`*^9, 3.72225968384059*^9}, {3.722259731762162*^9, 
   3.722259735442688*^9}, {3.7222597815701447`*^9, 3.7222597840398808`*^9}, {
   3.722260227960044*^9, 3.7222602648461995`*^9}, {3.722260395436321*^9, 
   3.722260395590135*^9}, {3.722260516527502*^9, 3.7222606155513372`*^9}, {
   3.7222609640151052`*^9, 3.7222610074454007`*^9}, 3.722261054081846*^9, {
   3.722261111650982*^9, 3.72226111451497*^9}, {3.7222612960936594`*^9, 
   3.7222613323940616`*^9}, {3.722261435887495*^9, 3.722261571855008*^9}, {
   3.722261701271932*^9, 3.722261704731249*^9}, {3.7222617462760997`*^9, 
   3.722261746541273*^9}, {3.722262008014653*^9, 3.7222620091659145`*^9}, {
   3.722262752732912*^9, 3.722262767674827*^9}, {3.7222628044232645`*^9, 
   3.722262881735465*^9}, {3.722263166198472*^9, 3.722263169888199*^9}, {
   3.722263628180888*^9, 3.7222636381846523`*^9}, 3.7222636687381306`*^9, {
   3.7222637143356957`*^9, 3.722263742040657*^9}, {3.722264185530383*^9, 
   3.722264189126361*^9}, 3.722264290025564*^9, {3.7222714190682125`*^9, 
   3.722271523032277*^9}, {3.7222715561526976`*^9, 3.722271602471204*^9}, {
   3.722271671599038*^9, 3.7222717421306076`*^9}, {3.722272407354734*^9, 
   3.7222724106611834`*^9}, {3.722272503951711*^9, 3.7222725064186783`*^9}, {
   3.7222726406719475`*^9, 3.722272650273283*^9}, {3.722272700983918*^9, 
   3.7222727082803235`*^9}, {3.722272770059458*^9, 3.7222727727953725`*^9}, {
   3.7222730956636195`*^9, 3.7222731267906647`*^9}, {3.7222731636972246`*^9, 
   3.722273174408654*^9}, {3.722273670819145*^9, 3.7222736978451014`*^9}, 
   3.722274225809972*^9, {3.7222742765584526`*^9, 3.7222742963345985`*^9}, {
   3.7222744840279036`*^9, 3.7222744926045775`*^9}, {3.7222746012558255`*^9, 
   3.722274627762662*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<pi.mp3\>\"", ",", 
   RowBox[{"Gen", "[", 
    RowBox[{"\[Pi]", ",", "8"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<e.mp3\>\"", ",", 
   RowBox[{"Gen", "[", 
    RowBox[{"E", ",", "8"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<sqrt2.mp3\>\"", ",", 
   RowBox[{"Gen", "[", 
    RowBox[{
     SqrtBox["2"], ",", "8"}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7222006119027863`*^9, 3.7222006297171316`*^9}, {
  3.722200743995179*^9, 3.722200764694318*^9}, {3.7222015083298726`*^9, 
  3.722201510614252*^9}, {3.722201569073743*^9, 3.722201584309803*^9}, {
  3.7222018363896017`*^9, 3.7222018521624436`*^9}, {3.722260630940903*^9, 
  3.7222606808726826`*^9}, {3.7222607150405283`*^9, 3.7222607299279027`*^9}, {
  3.7222615952948046`*^9, 3.7222616017836018`*^9}, {3.722271040274125*^9, 
  3.722271053906439*^9}, {3.722271089815235*^9, 3.722271111156934*^9}, {
  3.7222717937907906`*^9, 3.7222718149588485`*^9}, {3.7222726615659575`*^9, 
  3.7222726685009904`*^9}}],

Cell[BoxData["\<\"pi.mp3\"\>"], "Output",
 CellChangeTimes->{
  3.722200772388543*^9, 3.72220151928876*^9, {3.722201558312885*^9, 
   3.7222015792028766`*^9}, 3.7222018597641087`*^9, 3.722245758049761*^9, 
   3.7222459022826185`*^9, 3.7222585185041924`*^9, 3.7222589778651876`*^9, {
   3.722259203279795*^9, 3.7222592273439894`*^9}, 3.7222593462886868`*^9, 
   3.722259421355807*^9, 3.7222596003295803`*^9, 3.7222596953303723`*^9, 
   3.722259799901163*^9, 3.7222602755982275`*^9, 3.7222604148140097`*^9, 
   3.722260693315063*^9, 3.722260736443821*^9, 3.7222616083065023`*^9, 
   3.7222617635237956`*^9, 3.72226201787848*^9, 3.72226289286112*^9, 
   3.7222631856156387`*^9, 3.722263794515278*^9, 3.722263892748112*^9, 
   3.72226393499931*^9, 3.722263980284457*^9, 3.7222640280174503`*^9, 
   3.7222642393866124`*^9, 3.7222643698008823`*^9, 3.7222645671244125`*^9, 
   3.7222710558738003`*^9, 3.7222711191911*^9, {3.72227182228833*^9, 
   3.7222718497995667`*^9}, 3.722272216277159*^9, 3.72227242442424*^9, 
   3.7222725307724066`*^9, 3.7222727253798304`*^9, 3.722273023252041*^9, 
   3.722274547202981*^9, 3.7222746403405232`*^9}],

Cell[BoxData["\<\"e.mp3\"\>"], "Output",
 CellChangeTimes->{
  3.722200772388543*^9, 3.72220151928876*^9, {3.722201558312885*^9, 
   3.7222015792028766`*^9}, 3.7222018597641087`*^9, 3.722245758049761*^9, 
   3.7222459022826185`*^9, 3.7222585185041924`*^9, 3.7222589778651876`*^9, {
   3.722259203279795*^9, 3.7222592273439894`*^9}, 3.7222593462886868`*^9, 
   3.722259421355807*^9, 3.7222596003295803`*^9, 3.7222596953303723`*^9, 
   3.722259799901163*^9, 3.7222602755982275`*^9, 3.7222604148140097`*^9, 
   3.722260693315063*^9, 3.722260736443821*^9, 3.7222616083065023`*^9, 
   3.7222617635237956`*^9, 3.72226201787848*^9, 3.72226289286112*^9, 
   3.7222631856156387`*^9, 3.722263794515278*^9, 3.722263892748112*^9, 
   3.72226393499931*^9, 3.722263980284457*^9, 3.7222640280174503`*^9, 
   3.7222642393866124`*^9, 3.7222643698008823`*^9, 3.7222645671244125`*^9, 
   3.7222710558738003`*^9, 3.7222711191911*^9, {3.72227182228833*^9, 
   3.7222718497995667`*^9}, 3.722272216277159*^9, 3.72227242442424*^9, 
   3.7222725307724066`*^9, 3.7222727253798304`*^9, 3.722273023252041*^9, 
   3.722274547202981*^9, 3.7222746487609324`*^9}],

Cell[BoxData["\<\"sqrt2.mp3\"\>"], "Output",
 CellChangeTimes->{
  3.722200772388543*^9, 3.72220151928876*^9, {3.722201558312885*^9, 
   3.7222015792028766`*^9}, 3.7222018597641087`*^9, 3.722245758049761*^9, 
   3.7222459022826185`*^9, 3.7222585185041924`*^9, 3.7222589778651876`*^9, {
   3.722259203279795*^9, 3.7222592273439894`*^9}, 3.7222593462886868`*^9, 
   3.722259421355807*^9, 3.7222596003295803`*^9, 3.7222596953303723`*^9, 
   3.722259799901163*^9, 3.7222602755982275`*^9, 3.7222604148140097`*^9, 
   3.722260693315063*^9, 3.722260736443821*^9, 3.7222616083065023`*^9, 
   3.7222617635237956`*^9, 3.72226201787848*^9, 3.72226289286112*^9, 
   3.7222631856156387`*^9, 3.722263794515278*^9, 3.722263892748112*^9, 
   3.72226393499931*^9, 3.722263980284457*^9, 3.7222640280174503`*^9, 
   3.7222642393866124`*^9, 3.7222643698008823`*^9, 3.7222645671244125`*^9, 
   3.7222710558738003`*^9, 3.7222711191911*^9, {3.72227182228833*^9, 
   3.7222718497995667`*^9}, 3.722272216277159*^9, 3.72227242442424*^9, 
   3.7222725307724066`*^9, 3.7222727253798304`*^9, 3.722273023252041*^9, 
   3.722274547202981*^9, 3.7222746565787354`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Export", "[", 
  RowBox[{"\"\<pi.mid\>\"", ",", 
   RowBox[{"Gen", "[", 
    RowBox[{"\[Pi]", ",", "8"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<e.mid\>\"", ",", 
   RowBox[{"Gen", "[", 
    RowBox[{"E", ",", "8"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<sqrt2.mid\>\"", ",", 
   RowBox[{"Gen", "[", 
    RowBox[{
     SqrtBox["2"], ",", "8"}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.722275024189823*^9, 3.7222750410115786`*^9}, {
  3.7222757000703907`*^9, 3.7222757100525713`*^9}}],

Cell[BoxData["\<\"pi.mid\"\>"], "Output",
 CellChangeTimes->{{3.722275031070478*^9, 3.722275042496431*^9}, 
   3.722275711884487*^9}],

Cell[BoxData["\<\"e.mid\"\>"], "Output",
 CellChangeTimes->{{3.722275031070478*^9, 3.722275042496431*^9}, 
   3.722275713100564*^9}],

Cell[BoxData["\<\"sqrt2.mid\"\>"], "Output",
 CellChangeTimes->{{3.722275031070478*^9, 3.722275042496431*^9}, 
   3.7222757142841296`*^9}]
}, Open  ]]
},
WindowSize->{1910, 955},
WindowMargins->{{0, Automatic}, {1076, Automatic}},
Magnification:>3. Inherited,
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (2016\:5e748\:670817\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 3576, 93, 1104, "Input"],
Cell[CellGroupData[{
Cell[4159, 117, 882, 22, 416, "Input"],
Cell[5044, 141, 58641, 1331, 389, "Output"]
}, Open  ]],
Cell[63700, 1475, 273, 9, 16, "Text"],
Cell[63976, 1486, 1358, 29, 420, "Input"],
Cell[65337, 1517, 3061, 69, 952, "Input"],
Cell[68401, 1588, 4564, 98, 872, "Input"],
Cell[72968, 1688, 273, 9, 16, "Text"],
Cell[73244, 1699, 1441, 31, 420, "Input"],
Cell[74688, 1732, 11119, 245, 2164, "Input"],
Cell[CellGroupData[{
Cell[85832, 1981, 1229, 26, 484, "Input"],
Cell[87064, 2009, 1132, 16, 91, "Output"],
Cell[88199, 2027, 1131, 16, 91, "Output"],
Cell[89333, 2045, 1135, 16, 91, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[90505, 2066, 599, 15, 414, "Input"],
Cell[91107, 2083, 133, 2, 129, "Output"],
Cell[91243, 2087, 132, 2, 129, "Output"],
Cell[91378, 2091, 138, 2, 129, "Output"]
}, Open  ]]
}
]
*)

